Row

confirmed

33225

PCR tests

858558

Antibody Tests

93865

death

976

Row

Map

Daily cumulative cases

Row

Zipcode cases

Town cases

Row

Daily counts

Daily counts

date confirmed new active recovered deaths
274 2020-12-13 33009 520 NA NA 965
273 2020-12-12 32489 474 NA NA 948
272 2020-12-11 32015 733 NA NA 935
271 2020-12-10 31282 563 NA NA 919
270 2020-12-09 30719 646 NA NA 903
269 2020-12-08 30073 353 NA NA 891
268 2020-12-07 29720 383 NA NA 883
267 2020-12-06 29337 656 NA NA 872
266 2020-12-05 28681 778 NA NA 870
265 2020-12-04 27903 793 NA NA 859
264 2020-12-03 27110 592 NA NA 853
263 2020-12-02 26518 476 NA NA 842
262 2020-12-01 26042 615 NA NA 826
261 2020-11-30 25427 485 NA NA 816
260 2020-11-29 24942 502 NA NA 805
259 2020-11-28 24440 507 NA NA 791
258 2020-11-27 23933 862 NA NA 785
257 2020-11-26 23071 513 NA NA 779
256 2020-11-25 22558 685 NA NA 764
255 2020-11-24 21873 301 NA NA 755
254 2020-11-23 21572 497 NA NA 747
253 2020-11-22 21075 521 NA NA 737
252 2020-11-21 20554 451 NA NA 735
251 2020-11-20 20103 630 NA NA 726
250 2020-11-19 19473 490 NA NA 723
249 2020-11-18 18983 573 NA NA 718
248 2020-11-17 18410 392 NA NA 714
247 2020-11-16 18018 272 NA NA 703
246 2020-11-15 17746 277 NA NA 694
245 2020-11-14 17469 448 NA NA 689
244 2020-11-13 17021 481 NA NA 685
243 2020-11-12 16540 512 NA NA 681
242 2020-11-11 16028 422 NA NA 676
241 2020-11-10 15606 390 NA NA 674
240 2020-11-09 15216 228 NA NA 668
239 2020-11-08 14988 271 NA NA 665
238 2020-11-07 14717 379 NA NA 661
237 2020-11-06 14338 215 NA NA 658
236 2020-11-05 14123 215 NA NA 658
235 2020-11-04 13908 160 NA NA 657
234 2020-11-03 13748 164 NA NA 656
233 2020-11-02 13584 53 NA NA 655
232 2020-11-01 13531 118 NA NA 654
231 2020-10-31 13413 151 NA NA 654
230 2020-10-30 13262 101 NA NA 653
229 2020-10-29 13161 140 NA NA 652
228 2020-10-28 13021 50 NA NA 652
227 2020-10-27 12971 116 NA NA 649
226 2020-10-26 12855 36 NA NA 649
225 2020-10-25 12819 37 NA NA 647
224 2020-10-24 12782 77 NA NA 647
223 2020-10-23 12705 55 NA NA 647
222 2020-10-22 12650 76 NA NA 646
221 2020-10-21 12574 61 NA NA 643
220 2020-10-20 12513 45 NA NA 643
219 2020-10-19 12468 17 NA NA 641
218 2020-10-18 12451 58 NA NA 641
217 2020-10-17 12393 69 NA NA 640
216 2020-10-16 12324 55 NA NA 640
215 2020-10-15 12269 53 NA NA 640
214 2020-10-14 12216 34 NA NA 639
213 2020-10-13 12182 28 NA NA 639
212 2020-10-12 12154 47 NA NA 639
211 2020-10-11 12107 52 NA NA 638
210 2020-10-10 12055 57 NA NA 637
209 2020-10-09 11998 45 NA NA 636
208 2020-10-08 11953 55 NA NA 636
207 2020-10-07 11898 34 NA NA 635
206 2020-10-06 11864 66 NA NA 634
205 2020-10-05 11798 31 NA NA 633
204 2020-10-04 11767 70 NA NA 632
203 2020-10-03 11697 60 NA NA 629
202 2020-10-02 11637 63 NA NA 627
201 2020-10-01 11574 74 NA NA 627
200 2020-09-30 11500 55 NA NA 625
199 2020-09-29 11445 86 NA NA 625
198 2020-09-28 11359 17 NA NA 625
197 2020-09-27 11342 34 NA NA 624
196 2020-09-26 11308 57 NA NA 624
195 2020-09-25 11251 50 NA NA 623
194 2020-09-24 11201 89 NA NA 623
193 2020-09-23 11112 30 NA NA 623
192 2020-09-22 11082 40 NA NA 623
191 2020-09-21 11042 43 NA NA 622
190 2020-09-20 10999 82 NA NA 622
189 2020-09-19 10917 44 NA NA 622
188 2020-09-18 10873 40 NA NA 621
187 2020-09-17 10833 81 NA NA 619
186 2020-09-16 10752 36 NA NA 619
185 2020-09-15 10716 48 NA NA 619
184 2020-09-14 10668 31 NA NA 616
183 2020-09-13 10637 70 NA NA 615
182 2020-09-12 10567 64 NA NA 615
181 2020-09-11 10503 59 NA NA 615
180 2020-09-10 10444 50 NA NA 614
179 2020-09-09 10394 48 NA NA 611
178 2020-09-08 10346 26 NA NA 610
177 2020-09-07 10320 54 NA NA 609
176 2020-09-06 10266 54 NA NA 609
175 2020-09-05 10212 56 NA NA 607
174 2020-09-04 10156 70 NA NA 607
173 2020-09-03 10086 69 NA NA 607
172 2020-09-02 10017 70 NA NA 607
171 2020-09-01 9947 75 NA NA 607
170 2020-08-31 9872 65 NA NA 606
169 2020-08-30 9807 66 NA NA 606
168 2020-08-29 9741 28 NA NA 605
167 2020-08-28 9713 45 NA NA 605
166 2020-08-27 9668 79 NA NA 605
165 2020-08-26 9589 43 NA NA 605
164 2020-08-25 9546 55 NA NA 605
163 2020-08-24 9491 26 NA NA 605
162 2020-08-23 9465 52 NA NA 605
161 2020-08-22 9413 49 NA NA 604
160 2020-08-21 9364 81 NA NA 604
159 2020-08-20 9283 42 NA NA 604
158 2020-08-19 9241 54 NA NA 604
157 2020-08-18 9187 30 NA NA 603
156 2020-08-17 9157 10 NA NA 603
155 2020-08-16 9147 33 NA NA 602
154 2020-08-15 9114 50 NA NA 601
153 2020-08-14 9064 31 NA NA 601
152 2020-08-13 9033 20 NA NA 601
151 2020-08-12 9013 26 NA NA 601
150 2020-08-11 8987 69 NA NA 599
149 2020-08-10 8918 14 NA NA 598
148 2020-08-09 8904 54 NA NA 598
147 2020-08-08 8850 59 NA NA 597
146 2020-08-07 8791 54 NA NA 597
145 2020-08-06 8737 35 NA NA 596
144 2020-08-05 8702 35 NA NA 623
143 2020-08-04 8667 41 NA NA 623
142 2020-08-03 8626 54 NA NA 622
141 2020-08-02 8572 24 NA NA 621
140 2020-08-01 8548 56 NA NA 621
139 2020-07-31 8492 58 NA NA 621
138 2020-07-30 8434 24 NA NA 621
137 2020-07-29 8410 46 NA NA 620
136 2020-07-28 8364 37 NA NA 619
135 2020-07-27 8327 26 NA NA 619
134 2020-07-26 8301 19 NA NA 619
133 2020-07-25 8282 48 NA NA 619
132 2020-07-24 8234 47 NA NA 616
131 2020-07-23 8187 52 NA NA 614
130 2020-07-22 8135 29 NA NA 614
129 2020-07-21 8106 60 NA NA 613
128 2020-07-20 8046 11 NA NA 613
127 2020-07-19 8035 19 NA NA 610
126 2020-07-18 8016 34 NA NA 610
125 2020-07-17 7982 55 NA NA 608
124 2020-07-16 7927 36 NA NA 607
123 2020-07-15 7891 58 NA NA 606
122 2020-07-14 7833 67 NA NA 604
121 2020-07-13 7766 24 NA NA 603
120 2020-07-12 7742 31 NA NA 602
119 2020-07-11 7711 51 NA NA 602
118 2020-07-10 7660 36 NA NA 601
117 2020-07-09 7624 28 NA NA 601
116 2020-07-08 7596 52 NA NA 601
115 2020-07-07 7544 44 NA NA 601
114 2020-07-06 7500 25 NA NA 599
113 2020-07-05 7475 13 NA NA 599
112 2020-07-04 7462 35 NA NA 598
111 2020-07-03 7427 57 NA NA 598
110 2020-07-02 7370 33 NA NA 598
109 2020-07-01 7337 45 NA NA 597
108 2020-06-30 7292 43 NA NA 596
107 2020-06-29 7249 21 NA NA 594
106 2020-06-28 7228 22 NA NA 594
105 2020-06-27 7206 25 NA NA 594
104 2020-06-26 7181 43 NA NA 594
103 2020-06-25 7138 30 NA NA 594
102 2020-06-24 7108 35 NA NA 593
101 2020-06-23 7073 38 NA NA 593
100 2020-06-22 7035 31 NA NA 592
99 2020-06-21 7004 24 NA NA 590
98 2020-06-20 6980 25 NA NA 588
97 2020-06-19 6955 35 NA NA 586
96 2020-06-18 6920 38 NA NA 585
95 2020-06-17 6882 30 NA NA 583
94 2020-06-16 6852 35 NA NA 582
93 2020-06-15 6817 32 NA NA 579
92 2020-06-14 6785 32 NA NA 577
91 2020-06-13 6753 36 NA NA 573
90 2020-06-12 6717 58 NA NA 568
89 2020-06-11 6659 43 NA NA 566
88 2020-06-10 6616 21 NA NA 563
87 2020-06-09 6595 64 NA NA 560
86 2020-06-08 6531 45 NA NA 554
85 2020-06-07 6486 57 NA NA 550
84 2020-06-06 6429 70 NA NA 547
83 2020-06-05 6359 51 NA NA 543
82 2020-06-04 6308 74 NA NA 541
81 2020-06-03 6234 61 NA NA 536
80 2020-06-02 6173 50 NA NA 532
79 2020-06-01 6123 53 NA NA 528
78 2020-05-31 6070 56 NA NA 521
77 2020-05-30 6014 79 NA NA 521
76 2020-05-29 5935 49 NA NA 517
75 2020-05-28 5886 76 NA NA 514
74 2020-05-27 5810 57 NA NA 504
73 2020-05-26 5753 53 NA NA 498
72 2020-05-25 5700 74 NA NA 490
71 2020-05-24 5626 74 NA NA 484
70 2020-05-23 5552 155 NA NA 479
69 2020-05-22 5397 127 NA NA 473
68 2020-05-21 5270 139 NA NA 463
67 2020-05-20 5131 94 NA NA 455
66 2020-05-19 5037 44 NA NA 450
65 2020-05-18 4993 39 NA NA 444
64 2020-05-17 4954 87 NA NA 438
63 2020-05-16 4867 85 NA NA 428
62 2020-05-15 4782 111 NA NA 417
61 2020-05-14 4671 65 NA NA 411
60 2020-05-13 4606 76 NA NA 402
59 2020-05-12 4530 47 NA NA 395
58 2020-05-11 4483 30 NA NA 387
57 2020-05-10 4453 116 NA NA 376
56 2020-05-09 4337 82 NA NA 368
55 2020-05-08 4255 119 NA NA 356
54 2020-05-07 4136 128 NA NA 350
53 2020-05-06 4008 117 NA NA 338
52 2020-05-05 3891 89 NA NA 264
51 2020-05-04 3802 92 NA NA 254
50 2020-05-03 3710 112 NA NA 250
49 2020-05-02 3598 117 NA NA 243
48 2020-05-01 3481 162 NA NA 233
47 2020-04-30 3319 123 NA NA 227
46 2020-04-29 3196 107 NA NA 220
45 2020-04-28 3089 68 NA NA 216
44 2020-04-27 3021 67 NA NA 208
43 2020-04-26 2954 181 NA NA 205
42 2020-04-25 2773 170 NA NA 199
41 2020-04-24 2603 153 NA NA 184
40 2020-04-23 2450 217 NA NA 179
39 2020-04-22 2233 86 NA NA 174
38 2020-04-21 2147 38 NA NA 161
37 2020-04-20 2109 39 NA NA 153
36 2020-04-19 2070 73 NA NA 146
35 2020-04-18 1997 68 NA NA 115
34 2020-04-17 1929 79 NA NA 115
33 2020-04-16 1850 99 NA NA 115
32 2020-04-15 1751 83 NA NA 110
31 2020-04-14 1668 44 1178 479 99
30 2020-04-13 1624 53 1116 479 86
29 2020-04-12 1571 99 1084 479 75
28 2020-04-11 1472 63 1071 430 62
27 2020-04-10 1409 47 1019 430 58
26 2020-04-09 1362 157 989 398 46
25 2020-04-08 1205 42 950 349 38
24 2020-04-07 1163 0 893 303 36
23 2020-04-06 1163 104 910 223 30
22 2020-04-05 1059 114 861 171 27
21 2020-04-04 945 143 758 161 26
20 2020-04-03 802 68 639 141 22
19 2020-04-02 734 181 614 101 19
18 2020-04-01 553 115 510 81 12
17 2020-03-31 438 -5 481 62 8
16 2020-03-30 443 63 402 53 8
15 2020-03-29 380 26 375 32 6
14 2020-03-28 354 135 347 27 6
13 2020-03-27 219 85 277 27 6
12 2020-03-26 134 12 200 16 2
11 2020-03-25 122 15 139 5 0
10 2020-03-24 107 20 121 0 0
9 2020-03-23 87 33 96 0 0
8 2020-03-22 54 16 64 0 0
7 2020-03-21 38 7 56 0 0
6 2020-03-20 31 3 47 0 0
5 2020-03-19 28 21 29 0 0
4 2020-03-18 7 0 27 0 0
3 2020-03-17 7 1 20 0 0
2 2020-03-16 6 3 7 0 0
1 2020-03-15 3 3 7 0 0
---
title: COVID19(Erie county)
date: "`r gsub('\\(.*updated |/2020))', '', attributes(Counts$counts)$update.time)`"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    navbar:
      - { icon: fa-github, href: "https://github.com/hubentu/COVID19Erie"}
      - { title: "Erie Case Map", href: "https://erieny.maps.arcgis.com/apps/opsdashboard/index.html#/dd7f1c0c352e4192ab162a1dfadc58e1"}
      - { title: "Global Map", href: "https://coronavirus.jhu.edu/map.html"}
    social: menu
    source_code: embed
    vertical_layout: scroll
---

```{r setup, include=FALSE}
library(flexdashboard)
## library(fontawesome)
## library(COVID19Erie)
## pubExposed <- exposedPub()
```

```{r}
## Counts <- caseCounts()
counts <- Counts$counts
ctable1 <- rbind(counts,
                c(town = "Total", colSums(counts[,-1])))
##ycount <- historyCount$confirmed[historyCount$date == Sys.Date() - 1]
##ncount <- attributes(counts)$total.confirmed - ycount
ncount <- tail(historyCount$new, 1)
```

Row {data-width=300}
-----------------------------------------------------------------------

### confirmed {.value-box}

```{r}
valueBox(
  value = attributes(counts)$total.confirmed,
  caption = paste0("Total confirmed cases (+", ncount, ")"),
  icon = "fas fa-ambulance",
  color = "purple"
)
```

### PCR tests {.value-box}
```{r}
valueBox(
  value = attributes(counts)$PCR.tested,
  caption = "Total PCR (Swab) Tests",
  icon = "fas fa-hospital-user",
  color = "#1f77b4"
)
```

### Antibody Tests {.value-box}
```{r}
valueBox(
  value = attributes(counts)$Antibody.tested,
  caption = "Total Antibody Tests",
  icon = "fas fa-hospital-user",
  color = "forestgreen"
)
```












### death {.value-box}

```{r}
valueBox(
  value = attributes(counts)$total.deaths,
  caption = "Death cases",
  icon = "fas fa-heart-broken",
  color = "#474747"
)
```


Row {data-height=600}
-----------------------------------------------------------------------
    
### Map
    
```{r}
caseMap(Counts, pubExposed, titlePos = NULL)
```

### Daily cumulative cases
```{r}
countPlot(historyCount)
```

Row
---------------------------------------------------------------------

### Zipcode cases
```{r}
library(DT)
datatable(Counts$zipCounts, options = list(scrollX = T))
```

### Town cases

```{r}
## library(knitr)
## library(kableExtra)
## kable(ctable1,
##       caption = "COVID19 cases (Erie county)") %>%
##     kable_styling(full_width = TRUE) %>% 
##     footnote(general = c(paste("Last updated:", attributes(counts)$update.time),
##                          "[Data Source](https://erieny.maps.arcgis.com/apps/opsdashboard/index.html#/dd7f1c0c352e4192ab162a1dfadc58e1)",
##                          "[Public Advisories](http://www2.erie.gov/health/index.php?q=public-advisories)",
##                          "The data is only for educational and academic research purposes.")) %>%
## scroll_box(height = "600px")
datatable(ctable1[,1:2], options = list(scrollX = T))
```

Row
----------------------------------------------------------------------

### Daily counts {.no-mobile}
```{r}
datatable(historyCount[order(historyCount$date, decreasing = TRUE),],
          extensions = 'Scroller',
          options = list(scrollX = TRUE))
```

### Daily counts {.mobile}
```{r}
library(knitr)
library(kableExtra)
kable(historyCount[order(historyCount$date, decreasing = TRUE),]) %>%
    kable_styling(font_size = 8)%>%
    scroll_box(height = "600px", width = "100%")
```